-- background: 5115 from stack: in
-- bmap block id: 5700
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
--   This is a template for the multiple choice questions on
--                  Dr. Jekyll and Mr. Hyde
--               Abridged by Dr. Frank Laurence
-----------------------------------------------------------------------
-- Hidden Field names
--    ifdone,answer,timestried
-- Hidden Button Names
--    hider, showreference


On GRect TopH,TopV,Side,Margin
  put Trunc(Side/Margin) into Margin1
  If ((Side/Margin) <> Margin1) then
    put (Margin*Margin1) into Width
  end if

  put TopH into counter
  put TopV into counter1
  Repeat Margin1 times
    choose line tool
    Drag from Counter,TopV to TopH+Side,Counter1
    Add Margin to counter
    add margin to counter1
  end repeat

  put TopH+Side into counter
  put TopV into counter1
  repeat margin1 times
    drag from TopH+Side,Counter1 to Counter,TopV+Side
    Subtract margin from counter
    add margin to counter1
  end repeat

  put TopH+Side into Counter
  put TopV+Side into counter1
  repeat margin1 times
    drag from Counter,TopV+Side to TopH,Counter1
    Subtract margin from counter1
    subtract margin from counter
  end repeat

  put TopH into Counter
  put TopV+Side into Counter1
  repeat margin1 times
    drag from TopH,Counter1 to Counter,TopV
    Subtract margin from counter1
    add margin to counter
  end repeat
  choose browse tool
end Grect


on OpenThisBackground
  lock screen
  go to next card
  repeat with Counter = 1 to ((Number of cards of this background)-1)
    set the hilite of card button "1A" to false
    set the hilite of card button "1B" to false
    set the hilite of card button "1C" to false
    set the hilite of card button "1D" to false
    put "0" into field "TimesTried"
    put "" into field "ifdone"
    show card button "Hider"
    Hide card button "showreference"
    get the name of this card
    If it = "ScoreCard" then
      put "0" into card field "right"
      put "0" into card field "wrong"
    end if
    go to next card
  end repeat
  wait until the mouseclick
  go to card "TheFirstCard"
  hide message box
end OpenThisBackground


on ShowText CardId
  push card
  lock screen
  go to card id CardId
  show card button "TextHand1"
  show card button "TextHand2"
  unlock screen with dissolve
end showtext


-- part 1 (field)
-- low flags: 00
-- high flags: 2004
-- rect: left=50 top=27 right=65 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Question


-- part 6 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=98 top=82 right=117 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 10 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=98 top=116 right=151 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 11 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=98 top=150 right=185 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 12 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=98 top=184 right=218 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 14 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=2 top=33 right=57 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: Numbers


-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=27 top=223 right=254 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CHECK MY ANSWER
----- HyperTalk script -----
on mouseUp
  get field "TimesTried"
  put field "answer" into Name
  if (the hilite of button Name = True) then
    set visible of button "Hider" to false
    add 1 to field "TimesTried"
    put "True" into field "ifdone"
    hide card button "ShowReference"
  else
    if (field "ifdone" is empty) and (it<3) then
      add 1 to field "TimesTried"
      if it = 2 then
        show card button "ShowReference"
      end if
    end if
  end if
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=427 top=307 right=335 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
On Mouseup
  show card field "NextExplain"
end Mouseup



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=395 top=307 right=335 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----
On Mouseup
  show card field "NextExplain"
end Mouseup



-- part 23 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=297 top=238 right=255 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TimesTried


-- part 24 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=296 top=259 right=275 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Answer


-- part 25 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=55 top=312 right=330 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ifdone


-- part 27 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=16 top=319 right=340 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  global returncard
  go to returncard
end mouseUp